-- card: 5309 from stack: in
-- bmap block id: 5577
-- flags: 0000
-- background id: 2777
-- name: Email menu
----- HyperTalk script -----
on idle
  global port
  put the time into field 4
  if SPortHasChar(port) then
    put empty into reslts
    put recvUpTo(port,return,2,false,false) into newIn
    put newIn after reslts
    if the length of reslts >0 then put empty into the reslts
  end if
end idle

on opencard
  global lastday
  put lastday into field "laston"
  put the abbrev date into field "now"
end opencard


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=197 top=114 right=136 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Private Mail
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"p"&return
  go card "Mail Functions"
  put "Private Mail" into card field "Section"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=198 top=161 right=183 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Software
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"s"&return
  go card "Mail Functions"
  put "Software Forum" into card field "Section"

end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=99 top=137 right=159 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hardware
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"h"&return
  go card "Mail Functions"
  put "Hardware Forum" into card field "Section"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=297 top=137 right=159 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"o"&return
  go card "Mail Functions"
  put "Open Forum" into card field "Section"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=198 top=137 right=159 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PD Request
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"a"&return
  go card "Mail Functions"
  put "PD Disk Request" into card field "Section"

end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=281 right=303 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main Menu
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"e"&return
  go card "Main Menu"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=305 right=327 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Log off
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"g"&return
  answer "What'll it be?" with "Yes, bye" or "NO WAIT!!"
  if it="Yes, bye" then
    sendsPort port,false,"y"&return
    go card 1
  else if it="NO WAIT!!" then
    sendSPort port,false,"n"&return
    go card "Main Menu"
  end if
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=31 right=68 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show card field "about Mystery"
end mouseUp



-- part 14 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=136 top=112 right=188 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: about mystery
----- HyperTalk script -----
on mouseup
  hide card field "about mystery"
end mouseup


-- part 15 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=198 top=215 right=237 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan
----- HyperTalk script -----
on mousedown
  global port
  put the mouseloc into myPlace
  put item 1 of myPlace into horiz
  put item 2 of myPlace - 10 into vert
  get PopUpMenu("All;Go back days;Quit;Use Search Strings;Start", 3, vert, horiz)
  put recvUpTo(port,return,1,false,false) into newIn
  if it = 1 then
    sendSPort port,false,"l"&return
    wait 10
    sendSPort port,false,"a"&return
    push card
    go card "Scan"
  else if it = 2 then
    sendSPort port,false,"l"&return
    wait 10
    push card
    set lockscreen to true
    go card "Main Menu"
    get card field 1 of card "Main Menu"
    put it into junk
    go card "days"
    put junk into card field 1 of card "Days"
    set lockscreen to false
  else if it = 3 then pass mousedown
  else if it = 4 then
    sendSPort port,false,"l"&return
    wait 10
    sendSPort port,false,"u"&return
    wait 10
    answer "Search for…" with "Author" or "Message Title" or "Receiver"
    if it = "Author" then sendsPort port,false,"a"&return
    else if it = "Message title" then sendSPort port,false,"m"&return
    else if it = "Receiver" then sendSPort port,false,"r"&return
    ask "Search "&it&" for what string?"
    if it<> empty then
      push card
      sendSPort port,false,it&return
      sendSport port,false,"s"&return
      go card "Scan"
    end if
  else if it= 5 then
    sendSPort port,false,"l"&return
    wait 10
    SendSPort port,false,"s"&return
    push card
    go card "Scan"
  end if
end mousedown



-- part contents for background part 4
----- text -----
Sun, Sep 25, 1988

-- part contents for background part 1
----- text -----





Sat, Jul 2, 1988, 8:06 PM

-- part contents for background part 5
----- text -----
10:16 PM

-- part contents for card part 14
----- text -----
You are currently using the Mystery Message
Base Manager 1.902 written by Robert Thurman.

Mystery 1.902 was written in Lightspeed Pascal.

Pascal ...  The language of the gods and me too.
   [P]rivate Electronic Mail
   [H]ardware Forum Menu
   [P]rivate Electronic Mail
   [H]ardware Forum Menu


-- part contents for background part 3
----- text -----
Sat, Sep 24, 1988, 12:06 AM